home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
text
/
xes.lha
/
XES
/
REXX
/
Paginate.xdme
< prev
next >
Wrap
Text File
|
1995-08-23
|
943b
|
41 lines
/* $VER: Paginate.xdme 1.1 (23 Aug 1995) */
/* Copyright © 1995 Fergus Duniho */
/* Part of the XDME Excelsior Suite by Fergus Duniho */
/* Paginates the current file, using the values set in the Print
** GUI, and puts the output in File */
PARSE ARG File
writeto 'T:Text'
ADDRESS Command "protect T:Text +rwd"
ADDRESS 'XDME.1'
OPTIONS RESULTS
hf = GetVal("$_hf")
h0 = GetVal("$_h0")
h1 = GetVal("$_h1")
ff = GetVal("$_ff")
f0 = GetVal("$_f0")
f1 = GetVal("$_f1")
N = GetVal("$_N")
t = GetVal("$_t")
b = GetVal("$_b")
p = GetVal("$_p")
l = GetVal("$_l")
r = GetVal("$_r")
Tl = GetVal("$_Tl")
headers = '-hf "'hf'" -h0 "'h0'" -h1 "'h1'"'
footers = '-ff "'ff'" -f0 "'f0'" -f1 "'f1'"'
misc = '-t' t '-b' b '-l' l '-r' r '-N "'N'" -p' p '-T' Tl
Com = "Paginate <T:Text >"File headers footers misc
ADDRESS Command Com
CALL Delete 'T:Text'
EXIT
GetVal:
PARSE ARG v
xcom = "rxresult" v
xcom
IF result = "RESULT" THEN return ""
ELSE RETURN result